home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 1
/
MacMania 1.toast
/
Educational
/
Sciences
/
Sol's Neighbors
/
card_3645.txt
< prev
next >
Wrap
Text File
|
1988-12-15
|
7KB
|
310 lines
-- card: 3645 from stack: in
-- bmap block id: 4340
-- flags: 0000
-- background id: 2319
-- name: SortControl
----- HyperTalk script -----
on openCard
global seeCard
if seeCard ≠ 1 then go to first card
pass openCard
end openCard
on setSortKey whatKey
global sortKey
Put whatKey into sortKey
repeat with i = 1 to 10
set hilite of button i to sortKey = i
end repeat
end setSortKey
-- part 1 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=108 right=131 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Name
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 1
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=141 right=164 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Alpha
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 2
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=174 right=197 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Delta
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 3
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=68 top=207 right=230 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Parallax
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 4
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=108 right=131 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Visual Magnitude
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 5
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=141 right=164 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Spectral Class
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 6
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=174 right=198 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Luminosity
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 7
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=207 right=230 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Mass
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 8
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=244 top=242 right=265 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Radius
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 9
end mouseUp
-- part 19 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=67 top=242 right=265 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Distance
----- HyperTalk script -----
on mouseUp
global sortKey
set hilite of button sortKey to false
setSortKey 10
end mouseUp
-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=374 top=275 right=299 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
global seeCard
put 0 into seeCard
doMenu "Back"
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=84 top=276 right=299 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoFirst
----- HyperTalk script -----
on mouseUp
global seeCard
put 0 into seeCard
visual effect barn door close
go card "TitleCard"
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=182 top=73 right=96 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Cards Now!
----- HyperTalk script -----
on mouseUp
set lockScreen to true
global sortKey, seeCard
if sortKey = 1 then sort by background field id 17 -- Name
if sortKey = 2 then sort by background field id 18 -- Alpha
if sortKey = 3 then sort by background field id 19 -- Delta
if sortKey = 4 then sort by background field id 20 -- Parallax
if sortKey = 5 then sort descending numeric by background field id 25 -- Visual Magnitude
if sortKey = 6 then sort numeric by background field id 27 -- Spectral Class
if sortKey = 7 then sort by background field id 26 -- Luminosity
if sortKey = 8 then sort numeric by background field id 29 -- Mass
if sortKey = 9 then sort numeric by background field id 28 -- Radius
if sortKey = 10 then sort numeric by background field id 21 -- Distance
go to card "SortControl" -- SortControl
doMenu "Cut Card"
go to last card
doMenu "Paste Card"
go to first card
put 0 into seeCard
set lockScreen to false
end mouseUp